home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / handy.lzs / REV_MIRR.MF < prev    next >
Text File  |  1989-11-20  |  504b  |  25 lines
  1. % pattern_revmirror.mf
  2. def pattern=
  3. def endchar=
  4. tracingequations:=1;
  5. cullit;
  6. picture phaseone; phaseone=currentpicture;
  7. currentpicture:=nullpicture;
  8. fill (0,-desc)--(w,-desc)--(w,cap)--(0,cap)--cycle;
  9. cullit;
  10. picture phasetwo;
  11. phasetwo=currentpicture-phaseone;
  12. picture phasethree;
  13. phasethree:=phasetwo
  14.   reflectedabout ((0,0),(0,h))
  15.   shifted (w,0);
  16. currentpicture:=phasethree;
  17. scantokens extra_endchar;
  18. chardx:=w;
  19. shipit;
  20. if displaying>0:  showit; fi
  21. endgroup;
  22. enddef;
  23. enddef;
  24.  
  25.